Phase II: Using Our Toolbox

class: center, middle, inverse, title-slide

.title[
# Phase II: Using Our Toolbox
]
.subtitle[
## Module 5: SHARK!
]
.author[
### Dr. Christopher Kenaley
]
.institute[
### Boston College
]
.date[
### 2024/10/11
]

---

class: inverse, top
# In class today

<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.14.0/css/all.min.css">

.pull-left[
Today we'll ....

- Review WCR6

- Morphological disparity

- Questions

]

.pull-right[
![](https://upload.wikimedia.org/wikipedia/commons/thumb/3/3c/Full_Shot_of_a_Caribbean_Reef_Shark_at_Tiger_Beach_Bahamas.jpg/1600px-Full_Shot_of_a_Caribbean_Reef_Shark_at_Tiger_Beach_Bahamas.jpg)
]

---
class: inverse, top

## WCR5

.pull-left[

- To R studio

]

---
class: inverse, top
## Morphological disparity

.pull-left[

Are one or more groups different?
  
 `morphol.disparity()`
 
- estimated as the Procrustes variance:
    
- residuals of a linear model fit 
    - sum of diagonal of the covariation matrix divided by N
    - essentially what's different about each shape in data set
- GPA aligned data
- takes a `geomorph` data frame (`geomorph.data.frame()`)
- uses two formula 
  -  `coords ~ 1`
  - `groups= ~ habitat`

]

```
## Rows: 20 Columns: 3
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (3): file_name, sp, habitat
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
## Rows: 140 Columns: 3
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## dbl (2): X, Y
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
## Joining with `by = join_by(file_name)`
```